home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b6.d64
/
circle'as.l
< prev
next >
Wrap
Text File
|
2007-02-28
|
266b
|
14 lines
9000 PROC CIRCLE'AS(X,Y,R) CLOSED
9010 Y':=0
9020 PENUP
9030 FOR I:=1 TO 64 DO
9040 T:=R*.995004165-Y'*.0998334166
9050 Y':=Y'*.995004165+R*.0998334166
9060 R:=T
9070 SX:=ASPECT*R+X
9080 SY:=Y-Y'
9090 DRAWTO SX,SY
9100 PENDOWN
9110 ENDFOR I
9120 ENDPROC CIRCLE'AS